#!/bin/csh -f
foreach x (`/bin/ls *`)
    gawk ' \
	NR==1{ \
	    sub( /AQUA.*$/, "AQUA 1.0. October 1996" ) \
	    print $0 \
	    next \
	} \
	{ print $0 } ' $x > tmp
    \mv tmp $x
end
